VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CPrincipal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Private logica As lPedido
Private lCategoria As lCategoria
Private lCompania As lCompania
Private lResumen As lResumen


Public Sub abrirConfigurar()
Set frmConfig.bparametro = bparametro
frmConfig.Show 1

End Sub

Public Sub mostrarImprimirCierreCaja()
Dim frm As New frmImprimirCierre
Set frm.listaCompania = bparametro.lCompania
frm.Show 1
End Sub

Public Sub mostrarImprimirTickets()
Dim frm As New frmImprimirTickets
Set frm.listaCompania = bparametro.lCompania
frm.Show 1
End Sub


Public Sub mostrarResumen()
Dim bResumen  As New bResumen
Set bResumen.bCompania = bparametro.lCompania.Item(1)
Set bResumen.bUsuario = bparametro.bUsuarioActivo
bResumen.nDiaTrabajo = bparametro.nDiaTrabajo
If UtilConstantes.OPT_DATOS_GUARDADOS Then
    Set frmResumen.bean = bResumen
    frmResumen.Show 1
Else
    utilMensaje.muestraMensaje errorEncontrado
End If
    
End Sub


Public Sub abrirPedido(Optional ByRef bean As bpedido = Nothing)
Dim bpaginador As New bpaginador
Dim bCategoria As New bCategoria
Dim error As Integer
bpaginador.nIndice = 0
bpaginador.nRegistrosxPagina = frmPedido.cmdCategoria.Count
bCategoria.bEstado.nCodigo = UtilConstantes.ESTADO_CATEGORIA_ACTIVA
Set frmPedido.listaCategoria = lCategoria.getLista(bCategoria, bpaginador, error)
'Set frmPedido.listaCompania = bparametro.lCompania
If error = UtilConstantes.OPT_ERROR_ENCONTRADO Then
    utilMensaje.muestraMensaje (errorEncontrado)
Else
    If Not bean Is Nothing Then
        logica.getDetalle bean
        logica.getClientexVenta bean
        Set frmPedido.bean = bean
        Set frmPedido.listaDetalle = bean.lDetalle
    End If
    frmPedido.Show 1
End If
Set frmPrincipal.listaPedido = getLista(bean)
End Sub

Public Sub buscarPedido()
frmBuscarPedido.Show 1
End Sub

Public Sub mostrarEntrarVoucher()
    frmEntrarVoucher.Modo = UtilConstantes.MODO_NUEVO
    frmEntrarVoucher.Show 1
End Sub

Private Sub Class_Initialize()
Set logica = New lPedido
Set lCategoria = New lCategoria
Set lCompania = New lCompania
Set lResumen = New lResumen
End Sub

Public Function getLista(bean As bpedido) As Collection
    bean.nDiaTrabajo = bparametro.nDiaTrabajo
    Set getLista = logica.getLista(bean)
    If error = UtilConstantes.OPT_ERROR_ENCONTRADO Then
        utilMensaje.muestraMensaje (errorEncontrado)
    End If
End Function
